home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / modenc.zip / EQUIPTO.BAT < prev    next >
DOS Batch File  |  1989-10-30  |  3KB  |  115 lines
  1. echo off
  2. rem
  3. rem                    ***********************
  4. rem                    * WSW copyright 1989  *
  5. rem                    * 1140 Pleasant Lane  *
  6. rem                    * Glenview, IL 60025  *
  7. rem                    * Ph. (312) 724-5623  *
  8. rem                    ***********************
  9. :begin
  10. a:
  11. cls
  12. echo The PC Quote Program is ready to begin.
  13. echo.
  14. echo We suggest to install the Program on your Hard Disk.  If you decide to do so,
  15. echo Pc Quote will automatically install itself, and copy to the Hard Disk any
  16. echo specifications that you may have already recorded on the Floppy Disk.
  17. echo.
  18. echo The PC Quote Program installed on your Hard Disk means that
  19. echo.
  20. echo - The program will run much faster (floppy disk drives are very slow.)
  21. echo - You can run the program without having to look for the floppy disk.
  22. echo - There is much more room for your specifications (a floppy disk has a
  23. echo   limited capacity.)
  24. echo - The program can be installed and instantly available on several computers.
  25. echo - You can store the floppy disk in a safe place, as a back-up.
  26. echo.
  27. echo Here are your choices:
  28. echo.
  29. echo 1 - Install PC Quote Program on the Hard Disk.
  30. echo 2 - Start PC Quote Program from the Floppy Disk.
  31. echo.
  32. WSWread    Your selection (1 or 2): 
  33. for %%e in (1 2 3) do if errorlevel %%e goto label%%e
  34. cls
  35. echo Please try again. Only '1' and '2' are allowed.
  36. goto begin
  37. :label1
  38. C:
  39. cd\
  40. md \equipto
  41. cls
  42. echo PC Quote is now installing itself on your Hard Disk. To do so it creates a
  43. echo Subdirectory named EQUIPTO, in which to store all the files of the program
  44. echo and the ones you will generate.
  45. echo.
  46. echo You will find the EQUIPTO Subdirectory in the Root Directory (in other words,
  47. echo the '\' Directory), together with a file named EQUIPTO BAT.
  48. echo.
  49. echo By entering EQUIPTO followed by 'Return' you'll run the PC Quote program.
  50. echo.
  51. echo ...checking the files...
  52. if not exist a:equipto.hd goto missing
  53. if not exist a:equipto.db goto missing
  54. if not exist a:equipto.rb goto missing
  55. if not exist a:equi.com goto missing
  56. if not exist a:main.chn goto missing
  57. if not exist a:spec.chn goto missing
  58. if not exist a:prnt.chn goto missing
  59. if not exist a:custfile.chn goto missing
  60. if not exist a:WSWm.com goto missing
  61. if not exist a:WSWr.com goto missing
  62. if not exist a:WSWherc.com goto missing
  63. if not exist a:WSWread.com goto missing
  64. echo.
  65. echo ...copying the files...
  66. echo.
  67. copy a:equipto.hd c:\equipto.bat > NUL
  68. c:
  69. cd\equipto
  70. copy a:*.com > NUL
  71. copy a:*.chn > NUL
  72. copy a:*.pcq > NUL
  73. copy a:*.equ > NUL
  74. copy a:*.db > NUL
  75. copy a:*.rb > NUL
  76. echo.
  77. echo The installation process is concluded. Type EQUIPTO and hit 'Return'
  78. echo to run PC Quote.
  79. echo.
  80. echo Thank you for using Equipto Electronics' PC Quote Program.
  81. goto end
  82. :missing
  83. cls
  84. echo One or more file is missing from the disk in drive A:. The installation
  85. echo process has been aborted. Ask Equipto Electronics to send you a new copy
  86. echo of the PC Quote Program.
  87. echo.
  88. echo.
  89. goto end
  90. :label2
  91. cls
  92. echo ...starting the program...
  93. echo.
  94. echo The program will not run as fast as it could be, due to the floppy disk
  95. echo drive's relatively slow speed.  For better performance, you may decide to
  96. echo install the program on the Hard Disk.
  97. echo.
  98. a:
  99. WSWm EQUIPTO
  100. WSWherc
  101. equi
  102. WSWr EQUIPTO
  103. goto end
  104. :label3
  105. cls
  106. echo Please try again. Only '1' and '2' are allowed.
  107. goto begin
  108. :end
  109. ECHO.
  110. ECHO.
  111.  
  112.  
  113.  
  114.  
  115.